home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / bbs_util / cidtool2.zip / CIDTOOL.SCR < prev    next >
Text File  |  1996-06-01  |  4KB  |  127 lines
  1. CLS
  2. PUTNL "                             `0BC`03aller`0F-`03ID `0BT`03ool`0BB`03ox `0B2`0F.`0B01"
  3. PUTNL "                      `08By : Leon Kiriliuk   (c)1996"
  4. NL
  5. PUTNL "                      `0AUser Name          `0F: `02~UH"
  6. PUTNL "                      `0AUser ID Number     `0F: `02~UU"
  7. NL
  8. PUTNL "                      `0AData Phone Number  `0F: `02~UE"
  9. PUTNL "                      `0AVoice Phone Number `0F: `02~UD"
  10. NL
  11. PUTNL "                      `0DOpening Caller-ID Log  `0F[`0A√`0F]"
  12. PUTNL "                      `0DComparing numbers      `0F[`0A√`0F]"
  13. NL
  14. FILEEXIST C:\CIDTOOL\CIDOUT.1 GOTO NUMFOUND
  15. FILEEXIST C:\CIDTOOL\CIDOUT.2 GOTO VOICEFOUND
  16. FILEEXIST C:\CIDTOOL\CIDOUT.3 GOTO OUTOFAREA
  17. FILEEXIST C:\CIDTOOL\CIDOUT.4 GOTO NUMNOTF
  18. FILEEXIST C:\CIDTOOL\CIDOUT.5 GOTO OTHERU
  19. FILEEXIST C:\CIDTOOL\CIDOUT.6 GOTO SKIPUSER
  20. FILEEXIST C:\CIDTOOL\CIDOUT.255 GOTO ERRORFOUND
  21. GOTO ERRORFOUND
  22.  
  23. :NUMFOUND
  24. PUTNL "                     `0DNumbers   `03Match `0F[`0A√`0F]   `03Don't Match `0F[ `0F]"
  25. NL
  26. NL
  27. PUTNL "~SP"
  28. GOTO END
  29.  
  30. :VOICEFOUND
  31. PUTNL "                     `0DNumbers   `03Match `0F[ `0F]   `03Don't Match `0F[`8C√`0F]"
  32. NL
  33. PUTNL "                     `0DVoice Number   `03Match `0F[`0A√`0F]"
  34. NL
  35. PUTNL "~SP"
  36. CLS
  37. NL
  38. NL
  39. PUTNL "`07  Your Data phone number no longer matches, yet your voice number"
  40. PUTNL "`07Does. If you plan on using it from now own, leave a message to the"
  41. PUTNL "`07SysOp telling him so."
  42. NL
  43. PUTNL "`8F             FAILURE TO DO SO WILL RESULT IN YOUR REMOVAL!"
  44. NL
  45. PUTNL "~SP"
  46. GOTO END
  47.  
  48. :OUTOFAREA
  49. CLS
  50. PUTNL ""
  51. PUTNL ""
  52. PUTNL "`07Due to security reasons, this system does not accept calls from;"
  53. PUTNL "`07I) UNKNOWN NAME/NUMBER, II) PRIVATE NUMBER, and III) BLOCKED NUMBER."
  54. PUTNL ""
  55. PUTNL "`07Disable your call-blocking feature, and call direct."
  56. PUTNL ""
  57. PUTNL "~SW"
  58. HANGUP
  59. GOTO END
  60.  
  61. :NUMNOTF
  62. PUTNL "                     `0DNumbers   `03Match `0F[ `0F]   `03Don't Match `0F[`8C√`0F]"
  63. NL
  64. NL
  65. PUTNL "~SP"
  66. CLS
  67. NL
  68. PUTNL "`07CID checks reveal that the data/voice# for this account does not match
  69. PUTNL "`07that of the one recorded by caller-id."
  70. NL
  71. PUTNL "`07Due to security reasons, this system does not permit users calling from"
  72. PUTNL "`07numbers other than the ones we have on record.  This system is designed to"
  73. PUTNL "`07allow access to the owner of the account, and no one else."
  74. NL
  75. PUTNL "`07You may leave the sysop a message now, at which point afterwards, the"
  76. PUTNL "`07system will hang up on you.
  77. NL
  78. PUTNL "`07NOTE: In the message, you might want to tell the sysop why this occured"
  79. PUTNL "`07      any changes you want the sysop to do, or a reason why the system"
  80. PUTNL "`07      should by-pass the CID routine over your account on your next call."
  81. NL
  82. PUTNL "~SP"
  83. MENU ME Sysop;CID-Failure : No match!
  84. HANGUP
  85. GOTO END
  86.  
  87. :OTHERU
  88. PUTNL "`0D        CID Detected another user with the same phone number!"
  89. NL
  90. PUTNL "~SP"
  91. COMMENT [──══ DUPLICATE USER ══──]
  92. CLS
  93. NL
  94. NL
  95. PUTNL "`07    Another user on this system is already using this phone number."
  96. PUTNL "`07  We no longer allow duplicate accounts. (Except in special cases)"
  97. NL
  98. PUTNL "`07You may leave the sysop a message now, at which point afterwards, the"
  99. PUTNL "`07system will hang up on you.
  100. NL
  101. PUTNL "`07NOTE: In the message, you might want to tell the sysop why this occured"
  102. PUTNL "`07      any changes you want the sysop to do, or a reason why the system"
  103. PUTNL "`07      should by-pass the CID routine over your account on your next call."
  104. NL
  105. PUTNL "~SP"
  106. MENU ME Sysop;CID-Failure : Dupe users.
  107. HANGUP
  108. GOTO END
  109.  
  110. :SKIPUSER
  111. PUTNL "`0D        CID Detected that your number should be skipped over!"
  112. NL
  113. PUTNL "`0D        Have a nice day."
  114. NL
  115. PUTNL "~SP"
  116. GOTO END
  117.  
  118. :ERRORFOUND
  119. PUTNL "`8F        ERROR occured while executing. Please inform the SysOp!"
  120. NL
  121. NL
  122. PUTNL "~SP"
  123. GOTO END
  124.  
  125. :END
  126. ENDSCRIPT
  127.